home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MENU_UTL
/
LIBPAS
/
TESTMENU.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-06-14
|
837b
|
30 lines
program TestMenu;
uses crt,Library;
const
ChoiceData : ScrMenuRec =
(selection : ('Choice 1','Choice 2','Choice 3','Choice 4','','','','');
Descripts : (('This is','No 1','The First Choice'),
('Number 2','The Second Choice and default',''),
('Number 3','Last Choice, for now...','Last Line'),
('Number 4','An added Selection','How bout that?'),
('','',''),
('','',''),
('','',''),
('','','')));
var
ScrMenu : ScrMenuType;
Choice : integer;
begin
TextColor(white);
TextBackGround(Blue);
ClrScr;
ScrMenu.NumChoices := 4;
ScrMenu.Last := 2;
ScrMenu.Line := 6;
ScrMenu.Col := 30;
ScrMenu.Setup(ChoiceData);
Choice := ScrMenu.GetChoice;
ReadLn;
end.